home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / System / SYMBOL / Neurons / in < prev    next >
Text File  |  1998-10-23  |  979b  |  34 lines
  1. in
  2.  
  3. TEST SYNTAX
  4.  
  5. (in slot test &optional position) 
  6.  
  7. Tests if the neuron's in slot contains the value test. Both slot and test can be any Lisp forms. The slot is an integer refering to one of the the neurons inputs. Position refers to the test position and it is relative to the current position (default 0).
  8.  
  9. (in 1 'a) tests if slot 1 contains 'a at the current pos.
  10. (in 2 'a -1) tests if slot 2 contains 'a in previous pos.
  11. (in 2 'a +1) tests if slot 2 contains 'a in future+1 pos.
  12.  
  13. FIRE SYNTAX
  14.  
  15. (in slot position)
  16.  
  17. This returns the context of in slot at position. It is used in neuron's fire part and activated when the neuron input tests become true.
  18.  
  19. (in 1 -1) return the previous symbol.
  20. (in 1) or (in 1 0) returns the present symbol.
  21. (in 1 +1) returns the next symbol.
  22.  
  23. (def-neuron test2
  24.    (and (in 1 'a)
  25.         (in 2 'b))
  26.    (in 2 -1)
  27.    (otherwise (transpose-symbol (in 1 0) 1))
  28. )
  29.  
  30. (run-neuron 'test2
  31.             '(a b a a b)
  32.             '(a a b c d))
  33. --> (b c a b c)
  34.